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TRANSLATE ARABIC INTO ROMAN NUMERALS 


^ECUS Program Library Write-up 

Alx »KAt l 


DECUS NO. 8-494 


than 0 Rom<,n ?“ mer . ol «- Th« number must be greater 
< 4000- and start over. P™ 9 ™" wl " P ri "* "ENTER ARABIC NUMBER XI + 

t^Thefe^ as SPACE. The program 

ready to accept the next Arabic number ® °" d l,ne feed ' The Program is then 


C; TRANSLATE ARABIC 
21 1 FORMAT CE) 


I-TO ROMAN NUMERALS 


("K") 
C"D") 
("C") 
C "L") 
f "X") 


’) 


325 FORMAT 
23;FORMAT 
24;FORMAT 
25 ;FORMAT 
26; FORMAT 
27; FORMAT 
2H;FORMAT 
29;FORMAT 
3 3;FORMAT 
34;TYPE 33 
31;ACCEPT 21,5 

IF CE) 34,34,35 

! I I JE—<1000. > 30,34,34 
30;IF CE-1000.) l,2,o 

3 ; 1=1-100 
j=j-i 


c m i 

C/) 


C/,"ENTER ARABIC NUMBER 


>0 A <4000 ",/ 


TYPE 24 
CO TO 4 
5; 1=1-400 

J=J-4 
TYPE 34 
TYPE 23 
CO TO 4 
6; r=I-500 
J=J-5 

type 23 

CO TO 4 
7; 1=1-900 

J= J-9 
TYPE 24 
TYPE 22 
GO TO 4 
9; 1=1-13 
J=J -1 











TYPE 26 
CO TO 3 

10 ; 1 = 1-40 

J=J-4 
TYPE 26 
TYPE 25 
CO TO 3 

in 1 = 1-50 

J= J-5 
TYPE 25 
CO TO 8’ 

12 ; 1 = 1-90 

0= J-9 
TYPE 26 
TYPE 24 
CO TO 8 
1451=1-1 
TYPE 28 
CO TO 13 
15;i=i- 4 
TYPE 28 
TYPE 27 
CO TO 13 
ic;i=i-5 
TYPE 27 
CO TO 13 
17;1=1-9 
TYPE 28 
TYPE 26 
CO TO 13 
2; E=E-1 000 • 

TYPE 22 
CO TO 30 

l; I =e 
0 = 1/100 

4 ; C.0 TO ( 3 ,3,3,5,6,6, 6,6,7), J 
J=I/13 

3; CO TO <9,9,9,13,11,11>11*11>12), J 
13;CO TO (14,14,14,15,16,16,16,16,17) 

TYPE 29 
CO TO 31 
END 
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